dim args :args =inputbox("seacrch pin name =?",args,"")'"AP_26M_IN"
searchValue = ucase(trim(args))
dim isfound
isfound = false
if searchValue<>"" then
	dim doc
	set doc = Application.ActiveDocument
	dim objs,obj
	set objs = doc.getobjects(1,,true)
	doc.SelectObjects ppcbObjectTypeAll, "*", False  
	if objs.count=0 then
	else
		for each obj in objs
			dim pins,pin
			set pins = obj.pins
			searchValue = obj.name & "." & searchValue
			'msgbox pins.count
			for each pin in pins
				if cstr(ucase(pin.name)) = cstr(ucase(searchValue)) then
					'msgbox "found"
					pin.selected = true
					isfound = true
					'Application.ExecuteCommand("Edit Highlight")
				end if
			next			
		next		
	end if
end if
if isfound=false then
	msgbox "nothing found!"
else
	dim v
	set v = doc.ActiveView
	v.SetExtentsToSelection
end if
